      DCL-PR DDR014 EXTPGM;
        TRNSDT PACKED(7);
        TRNSDT2 LIKE(TRNSDT);
        dcl-parm TRNSDT3 LIKE(TRNSDT);
      END-PR;